#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#

(progn ;;init forms
  (ros:ensure-asdf)
  #+quicklisp(ql:quickload '(:lilu-roswell :lilu-debugger/emacs :lilu-debugger/dmenu) :silent t)
  )

(defpackage :ros.script.lilu-eval.3841829401
  (:use :cl))
(in-package :ros.script.lilu-eval.3841829401)

(opts:define-opts
  #.lilu-roswell:*default-help-option*
  #.lilu-roswell:*default-debugger-option*)


(defun main (&rest argv)
  (lilu-roswell:init-debugging)
  (multiple-value-bind (options free-args)
      (lilu-roswell:parse-options argv
                                  :free-args-p t :min-free-args 1)
    (declare (ignorable free-args))
    (lilu-roswell:options-check-for-help options
                                         :prefix nil
                                         :suffix nil
                                         :usage-of "lilu-eval.ros"
                                         :args     "S-EXP ...")
    (lilu-debugger:with-debugger
        ((lilu-roswell:options-get-value options :debugger))
      (dolist (sexp free-args)
        (format t "R: ~A~%"
                (eval (read-from-string sexp)))))))


;;; vim: set ft=lisp lisp:
